home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / mail / AFM3.lha / afm3 / Install < prev    next >
Text File  |  1999-02-21  |  731b  |  60 lines
  1. ;*
  2. ;* Install Script For AFM3.0
  3. ;*  
  4. ;* Made by gRiM
  5. ;*
  6.  
  7. (complete 0)
  8.  
  9. ;*** Directory Select ***
  10.  
  11. (complete 10)
  12.  
  13. (set idir
  14.   (askdir
  15.     (prompt "Where do you want to install AFM3 ?"
  16.             "An drawer 'AFM3 will be created here.")
  17.     (help "")
  18.     (default "Ram:")
  19.   )
  20. )
  21.  
  22.  
  23. (set helpDir
  24.   (askdir
  25.     (prompt "Where do you want to install the help files ?")
  26.     (help "The Help file must be in Help:")
  27.     (default "Help:")
  28.   )
  29. )
  30.  
  31. (set helpdir (expandpath helpdir))
  32.  
  33. (complete 60)
  34.  
  35. (set idir (tackon idir "AFM3"))
  36.  
  37.  
  38. (makedir idir)
  39.  
  40. (complete 70)
  41.  
  42. (copyfiles
  43.   (source "AFM3.Guide")
  44.   (dest helpdir)
  45. )
  46.  
  47. (complete 80)
  48.  
  49. (copyfiles
  50.   (source "")
  51.   (dest idir)
  52.   (pattern "#?")
  53. )
  54.  
  55.  
  56. (complete 100)
  57.  
  58.  
  59. (exit "Installation Complete!")
  60.